﻿Imports System.Data
Imports System.Data.OleDb
Imports geraLaudosAutomatico.conexao
Imports System.Text

Public Class tipo_usuarioDAO

    Dim sql As New StringBuilder
    Dim objConn As New conexao
    Dim i As Integer
    Dim tipo_usuario As New tipo_usuarioVO



    Public Function getTipoUsuarios() As Generic.List(Of tipo_usuarioVO)

        sql.Clear()
        sql.Append("SELECT *FROM tipo_usuario ORDER BY DESC_TIPO_USUARIO")

        Dim oReader As OleDbDataReader

        Dim lista As New Generic.List(Of tipo_usuarioVO)



        Try
            Dim oComando As New OleDbCommand(sql.ToString, objConn.abreConexao)

            oReader = oComando.ExecuteReader

            While oReader.Read

                tipo_usuario = New tipo_usuarioVO
                tipo_usuario.ID_TIPO_USUARIO = oReader("ID_TIPO_USUARIO")
                tipo_usuario.desc_tipo_usuario = oReader("DESC_TIPO_USUARIO")
                lista.Add(tipo_usuario)


            End While

            Return lista

        Catch ex As Exception

            Throw ex

        Finally

            objConn.fechaConexao()

        End Try

    End Function



    Public Function getTipoUsuario(ByVal id_tipo_usuario As Integer) As tipo_usuarioVO

        sql.Clear()
        sql.Append("SELECT *FROM tipo_usuario WHERE ID_tipo_usuario=@ID_TIPO_USUARIO")

        Dim oReader As OleDbDataReader

        Try
            Dim oComando As New OleDbCommand(sql.ToString, objConn.abreConexao)
            oComando.Parameters.AddWithValue("@ID_TIPO_USUARIO", id_tipo_usuario)

            oReader = oComando.ExecuteReader

            While oReader.Read
                tipo_usuario = New tipo_usuarioVO
                tipo_usuario.ID_TIPO_USUARIO = IIf(IsDBNull(oReader("ID_TIPO_USUARIO")), Nothing, oReader("ID_TIPO_USUARIO"))
                tipo_usuario.DESC_TIPO_USUARIO = IIf(IsDBNull(oReader("DESC_TIPO_USUARIO")), Nothing, oReader("DESC_TIPO_USUARIO"))
            End While

            Return tipo_usuario

        Catch ex As Exception

            Throw ex

        Finally

            objConn.fechaConexao()

        End Try

    End Function

End Class
